home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-APP12.ZIP / TR-AP12B.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-18  |  7KB  |  315 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     Byte     BYTE001
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     DispFile PPEPath() + "TR-AP12A.PCB", 1
  49.     :LABEL001
  50.     AnsiPos 16, 5
  51.     InputStr "_", STRING001, 15, 61, Mask_Ascii(), 8
  52.     If (STRING001 == "") Goto LABEL001
  53.     :LABEL002
  54.     AnsiPos 23, 6
  55.     InputStr "_", STRING002, 15, 17, Mask_Ascii(), 8
  56.     If (STRING002 == "") Goto LABEL002
  57.     :LABEL003
  58.     AnsiPos 55, 6
  59.     InputStr "_", STRING003, 15, 2, Mask_Num(), 8
  60.     If (STRING003 == "") Goto LABEL003
  61.     :LABEL004
  62.     AnsiPos 72, 6
  63.     InputStr "_", STRING004, 15, 1, "MmFf", 8
  64.     If (STRING004 == "") Goto LABEL004
  65.     :LABEL005
  66.     AnsiPos 28, 7
  67.     InputStr "_", STRING005, 15, 1, "YyNn", 16384
  68.     If (STRING005 == "") Goto LABEL005
  69.     :LABEL006
  70.     If (STRING005 == "Y") Goto LABEL007
  71.     If (STRING005 == "y") Goto LABEL007
  72.     If (STRING005 == "N") Goto LABEL013
  73.     If (STRING005 == "n") Goto LABEL013
  74.     Goto LABEL006
  75.     :LABEL007
  76.     AnsiPos 19, 11
  77.     InputStr "_", STRING006, 15, 58, Mask_Ascii(), 8
  78.     If (STRING006 == "") Goto LABEL007
  79.     :LABEL008
  80.     AnsiPos 21, 12
  81.     InputStr "_", STRING007, 15, 12, Mask_Num(), 8
  82.     If (STRING007 == "") Goto LABEL008
  83.     :LABEL009
  84.     AnsiPos 50, 12
  85.     InputStr "_", STRING008, 15, 27, Mask_Ascii(), 8
  86.     If (STRING008 == "") Goto LABEL009
  87.     :LABEL010
  88.     AnsiPos 22, 13
  89.     InputStr "_", STRING009, 15, 55, Mask_Ascii(), 8
  90.     If (STRING009 == "") Goto LABEL010
  91.     :LABEL011
  92.     AnsiPos 27, 14
  93.     InputStr "_", STRING010, 15, 50, Mask_Ascii(), 8
  94.     If (STRING010 == "") Goto LABEL011
  95.     :LABEL012
  96.     AnsiPos 27, 15
  97.     InputStr "_", STRING011, 15, 50, Mask_Ascii(), 8
  98.     If (STRING011 == "") Goto LABEL012
  99.     :LABEL013
  100.     AnsiPos 37, 16
  101.     InputStr "_", STRING012, 15, 1, "YyNn", 16384
  102.     If (STRING012 == "") Goto LABEL013
  103.     :LABEL014
  104.     If (STRING012 == "Y") Goto LABEL015
  105.     If (STRING012 == "y") Goto LABEL015
  106.     If (STRING012 == "N") Goto LABEL018
  107.     If (STRING012 == "n") Goto LABEL018
  108.     Goto LABEL014
  109.     :LABEL015
  110.     AnsiPos 26, 20
  111.     InputStr "_", STRING013, 15, 6, Mask_Ascii(), 8
  112.     If (STRING013 == "") Goto LABEL015
  113.     :LABEL016
  114.     AnsiPos 53, 20
  115.     InputStr "_", STRING014, 15, 24, Mask_Ascii(), 8
  116.     If (STRING014 == "") Goto LABEL016
  117.     :LABEL017
  118.     AnsiPos 16, 21
  119.     InputStr "_", STRING015, 15, 61, Mask_Ascii(), 8
  120.     If (STRING015 == "") Goto LABEL017
  121.     :LABEL018
  122.     Print "@CLS@"
  123.     DispFile PPEPath() + "TR-AP12B.PCB", 1
  124.     AnsiPos 22, 4
  125.     InputStr "_", STRING016, 15, 18, Mask_Ascii(), 8
  126.     If (STRING016 == "") Goto LABEL018
  127.     :LABEL019
  128.     AnsiPos 60, 4
  129.     InputStr "_", STRING017, 15, 17, Mask_Ascii(), 8
  130.     If (STRING017 == "") Goto LABEL019
  131.     :LABEL020
  132.     AnsiPos 20, 5
  133.     InputStr "_", STRING018, 15, 19, Mask_Ascii(), 8
  134.     If (STRING018 == "") Goto LABEL020
  135.     :LABEL021
  136.     AnsiPos 63, 5
  137.     InputStr "_", STRING019, 15, 20, Mask_Ascii(), 8
  138.     If (STRING019 == "") Goto LABEL021
  139.     :LABEL022
  140.     AnsiPos 19, 8
  141.     InputStr "_", STRING020, 15, 20, Mask_Ascii(), 8
  142.     If (STRING020 == "") Goto LABEL022
  143.     :LABEL023
  144.     AnsiPos 57, 8
  145.     InputStr "_", STRING021, 15, 20, Mask_Ascii(), 8
  146.     If (STRING021 == "") Goto LABEL023
  147.     :LABEL024
  148.     AnsiPos 19, 9
  149.     InputStr "_", STRING022, 15, 14, Mask_Ascii(), 8
  150.     If (STRING022 == "") Goto LABEL024
  151.     :LABEL025
  152.     AnsiPos 57, 9
  153.     InputStr "_", STRING023, 15, 20, Mask_Ascii(), 8
  154.     If (STRING023 == "") Goto LABEL025
  155.     STRING025 = U_Name()
  156.     If (Exist(PPEPath() + "TR-AP12b.TMP")) Delete PPEPath() + "TR-AP12b.TMP"
  157.     FCreate 1, PPEPath() + "TR-AP12b.TMP", 1, 0
  158.     FPutLn 1, ""
  159.     FPutLn 1, "@X0F New User Application!"
  160.     FPutLn 1, " @X0FNew User is " + STRING025
  161.     FPutLn 1, ""
  162.     FPutLn 1, "@X0Bh@X03obbies @X08: @X09" + STRING001
  163.     FPutLn 1, "@X0Bt@X03aste @X0Bi@X03n @X0Bm@X03usic @X08: @X09" + STRING002
  164.     FPutLn 1, "@X0Ba@X03ge @X08: @X09" + STRING003
  165.     FPutLn 1, "@X0Bs@X03ex @X08: @X09" + STRING004
  166.     FPutLn 1, "@X0Br@X03un @X0Ba b@X03oard @X08? @X09" + STRING005
  167.     :LABEL026
  168.     If (STRING005 == "Y") Goto LABEL027
  169.     If (STRING005 == "y") Goto LABEL027
  170.     If (STRING005 == "N") Goto LABEL028
  171.     If (STRING005 == "n") Goto LABEL028
  172.     Goto LABEL026
  173.     :LABEL027
  174.     FPutLn 1, "@X0Bb@X03oard @X0Bn@X03ame @X08: @X09" + STRING006
  175.     FPutLn 1, "@X0Bb@X03oard @X0Bn@X03umber @X08: @X09" + STRING007
  176.     FPutLn 1, "@X0Bh@X03ours @X08: @X09" + STRING008
  177.     FPutLn 1, "@X0Bs@X03oftware @X0Bu@X03sed @X08: @X09" + STRING009
  178.     FPutLn 1, "@X0Bc@X03omments @X07(1 line) @X08: @X09" + STRING010
  179.     FPutLn 1, "@X0Bc@X03omments @X07(2 line) @X08: @X09" + STRING011
  180.     FPutLn 1, "@X0Bp@X03rogram @X08? " + STRING012
  181.     :LABEL028
  182.     If (STRING012 == "Y") Goto LABEL029
  183.     If (STRING012 == "y") Goto LABEL029
  184.     If (STRING012 == "N") Goto LABEL030
  185.     If (STRING012 == "n") Goto LABEL030
  186.     :LABEL029
  187.     FPutLn 1, "@X0By@X03ears @X0Bc@X03oding @X08: @X09" + STRING013
  188.     FPutLn 1, "@X0Bl@X03anguages @X08: @X09" + STRING014
  189.     FPutLn 1, "@X0Bc@X03omments @X08: @X09" + STRING015
  190.     :LABEL030
  191.     FPutLn 1, "@X0Bc@X03pu @X0Bt@X03ype @X08: @X09" + STRING016
  192.     FPutLn 1, "@X0Bh@X03dd @X0Bs@X03pace @X08: @X09" + STRING017
  193.     FPutLn 1, "@X0Bm@X03odem @X0Bs@X03peed @X08: @X09" + STRING018
  194.     FPutLn 1, "@X0By@X03ears @X0Bb@X03bsing ? @X09" + STRING019
  195.     FPutLn 1, "@X0Fboard " + STRING025, " calls.."
  196.     FPutLn 1, "@X0Bb@X03oard @X0Bo@X03ne @X08: @X09" + STRING020
  197.     FPutLn 1, "  @X0An@X02umber @X08: " + STRING021
  198.     FPutLn 1, "@X0Bb@X03oard @X0Bt@X03wo @X08: " + STRING022
  199.     FPutLn 1, "  @X0An@X02umber @X08: " + STRING023
  200.     FClose 1
  201.     Print "@CLS@"
  202.     DispFile PPEPath() + "TR-AP12b.TMP", 1
  203.     Print "@WAIT@"
  204.     :LABEL031
  205.     AnsiPos 3, 25
  206.     Print "@X0Bc@X03orrect ?  @X2F YEP @X08 no "
  207.     :LABEL032
  208.     BYTE001 = 1
  209.     STRING023 = ""
  210.     While (STRING023 == "") Do
  211.         STRING023 = Inkey()
  212.     EndWhile
  213.     If (STRING023 == "6") Goto LABEL033
  214.     If (STRING023 == "RIGHT") Goto LABEL033
  215.     If (STRING023 == Chr(13)) Goto LABEL034
  216.     Goto LABEL032
  217.     :LABEL033
  218.     AnsiPos 3, 25
  219.     Print "@X0Bc@X03orrect ?  @X08YEP  @X2F NO "
  220.     BYTE001 = 1
  221.     STRING023 = ""
  222.     While (STRING023 == "") Do
  223.         STRING023 = Inkey()
  224.     EndWhile
  225.     If (STRING023 == "4") Goto LABEL031
  226.     If (STRING023 == "LEFT") Goto LABEL031
  227.     If (STRING023 == Chr(13)) Goto LABEL035
  228.     Goto LABEL033
  229.     :LABEL034
  230.     STRING024 = U_Name()
  231.     Message 0, "SYSOP", STRING024, "NEWUSER APPLICATION", "R", Date(), "FALSE", "FALSE", PPEPath() + "TR-AP12b.TMP"
  232.     Delete PPEPath() + "TR-AP12b.TMP"
  233.     Goto LABEL036
  234.     :LABEL035
  235.     DispFile PPEPath() + "TR-APP1A.PCB", 1
  236.     Goto LABEL001
  237.     :LABEL036
  238.     Print "@CLS@"
  239.     AnsiPos 15, 20
  240.     Print "@X0Fa smirk production..."
  241.     Delay 4
  242.     AnsiPos 15, 20
  243.     Print "@X07a smirk production..."
  244.     Delay 4
  245.     AnsiPos 14, 21
  246.     Print "@X0Fcoded by trippah.av.smk"
  247.     AnsiPos 15, 20
  248.     Print "@X08a smirk production..."
  249.     Delay 4
  250.     AnsiPos 14, 21
  251.     Print "@X07coded by trippah.av.smk"
  252.     AnsiPos 15, 20
  253.     Print "                     "
  254.     Delay 4
  255.     AnsiPos 14, 21
  256.     Print "@X08coded by trippah.av.smk"
  257.     Delay 4
  258.     AnsiPos 14, 21
  259.     Print "@X08                       "
  260.     Delay 3
  261.     End
  262.  
  263. ;------------------------------------------------------------------------------
  264. ;
  265. ; Usage report (before postprocessing)
  266. ;
  267. ; ■ Statements used :
  268. ;
  269. ;    1       End
  270. ;    87      Goto 
  271. ;    8       Let 
  272. ;    14      Print 
  273. ;    48      If 
  274. ;    4       DispFile 
  275. ;    1       FCreate 
  276. ;    1       FClose 
  277. ;    28      FPutLn 
  278. ;    2       Delete 
  279. ;    23      InputStr 
  280. ;    6       Delay 
  281. ;    33      AnsiPos 
  282. ;    1       Message 
  283. ;
  284. ;
  285. ; ■ Functions used :
  286. ;
  287. ;    34      +
  288. ;    47      ==
  289. ;    2       !
  290. ;    2       Chr()
  291. ;    1       Date()
  292. ;    2       U_Name()
  293. ;    2       Inkey()
  294. ;    2       Mask_Num()
  295. ;    18      Mask_Ascii()
  296. ;    9       PPEPath()
  297. ;    1       Exist()
  298. ;
  299. ;------------------------------------------------------------------------------
  300. ;
  301. ; Analysis flags : No flag
  302. ;
  303. ;------------------------------------------------------------------------------
  304. ;
  305. ; Postprocessing report
  306. ;
  307. ;    0       For/Next
  308. ;    2       While/EndWhile
  309. ;    0       If/Then or If/Then/Else
  310. ;    0       Select Case
  311. ;
  312. ;------------------------------------------------------------------------------
  313. ;                 AEGiS Corp - Break the routines, code against the machines!
  314. ;------------------------------------------------------------------------------
  315.